home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 61 / Quick PC 61.iso / I386 / SASETUP.MSI / F77542_main.asp < prev    next >
Encoding:
Text File  |  2003-02-21  |  1.3 KB  |  41 lines
  1. <%@ Language=VBScript   %>
  2.  
  3. <%    '==================================================
  4.     ' Microsoft Server Appliance
  5.     '
  6.     ' Default web page
  7.     '
  8.     ' Copyright (c) Microsoft Corporation.  All rights reserved.
  9.     '================================================== %>
  10.  
  11. <% Option Explicit %>
  12.  
  13. <!-- Copyright (c) Microsoft Corporation.  All rights reserved.-->
  14.  
  15. <!-- #include virtual="/admin/inc_framework.asp"-->
  16. <%
  17.  
  18.     '-------------------------------------------------------------------------
  19.     ' Global Variables
  20.     '-------------------------------------------------------------------------
  21.     Dim rc                            'Page variable
  22.     
  23.     Dim G_objRegistry               'Registry object . Value is assigned by calling function regConnection
  24.     Dim G_sURL                'Default URL
  25.     Const CONST_HOMEPAGEURLPATH = "SOFTWARE\Microsoft\ServerAppliance\WebFramework"
  26.  
  27.     'Getting registry conection
  28.     Set G_objRegistry = RegConnection()
  29.     
  30.     G_sURL = GetRegKeyValue(G_objRegistry, CONST_HOMEPAGEURLPATH, "DefaultURL", CONST_STRING)
  31.  
  32.     If (Len(G_sURL) <= 0) Then
  33.         G_sURL = "/admin/Tasks.asp?tab1=TabsWelcome"
  34.     End If
  35.     
  36.     Call SA_MungeURL(G_sURL, SAI_FLD_PAGEKEY, SAI_GetPageKey())
  37.  
  38.     Response.Redirect(G_sURL)
  39. %>
  40.  
  41.